Skip to content
Snippets Groups Projects
Commit f0f98b9a authored by ram's avatar ram
Browse files

current-cont -> current-fp.

parent 74adbc30
No related branches found
No related tags found
No related merge requests found
...@@ -336,7 +336,7 @@ ...@@ -336,7 +336,7 @@
;; ;;
;; Find all vector-like objects on the stack, putting code vectors in a ;; Find all vector-like objects on the stack, putting code vectors in a
;; separate table. (step 1) ;; separate table. (step 1)
(do ((sp (%primitive pointer+ (%primitive current-cont) (do ((sp (%primitive pointer+ (%primitive current-fp)
(- %stack-increment)) (- %stack-increment))
(%primitive pointer+ sp (- %stack-increment)))) (%primitive pointer+ sp (- %stack-increment))))
((%primitive pointer< sp base)) ((%primitive pointer< sp base))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment