From f0f98b9acd794d1f2d6f62c8bbebf761bcea0de8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 23 Apr 1990 13:37:24 +0000
Subject: [PATCH] current-cont -> current-fp.

---
 code/gc.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/gc.lisp b/code/gc.lisp
index 6f212a8e7..9622aaf35 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -336,7 +336,7 @@
     ;;
     ;; Find all vector-like objects on the stack, putting code vectors in a
     ;; separate table. (step 1)
-    (do ((sp (%primitive pointer+ (%primitive current-cont)
+    (do ((sp (%primitive pointer+ (%primitive current-fp)
 			 (- %stack-increment))
 	     (%primitive pointer+ sp (- %stack-increment))))
 	((%primitive pointer< sp base))
-- 
GitLab