forge/sf: val (pushing code directly to stack) as basis for const and var

forge/sf.lisp

@@ -135,7 +135,7 @@
   (car (stack *forge-env*)))
 
 (defun next () 
-  (pushd (iter:next-value *code*)))
+  (pushd (pop *code*)))
 
 ;;;; builtins
 
@@ -149,7 +149,7 @@
            #:ptr #:get #:put
            #:in #:next 
            #:call #:call-if #:call-while #:comp 
-           #:<comp #:reg #:regc #:/>))
+           #:<comp #:reg #:regc #:/> #:val))
 
 (in-package :sf-builtin)
 
@@ -197,4 +197,6 @@
 
 (f:reg '/> #'(lambda () (iter:stop f:*input*)) 'f:comp-word)
 
+(f:reg 'val #'(lambda () (f:pushd (list #'f:next (f:popd)))))
+
 ;;;; forge-code word definitions

test/test-sf.lisp

@@ -37,3 +37,6 @@
   (forge:exec-string "<def cube dup dup mul mul />")
   (forge:exec-list '(3 cube))
   (== (forge:popd) 27))
+
+(deftest test-val ()
+  (forge:exec-list '(<def const val in reg />)))