forge: lit (instead of comp) for moving top stack element to compile buffer

forge/basic.frg

@@ -0,0 +1,7 @@
+; basic.frg
+
+(dup mul) comp in square reg
+
+(comp in reg) comp in def reg
+
+(dup dup mul mul) def cube

forge/forge.lisp

@@ -163,7 +163,7 @@
            #:? #:??
            #:ptr #:get #:put
            #:in #:next 
-           #:call #:call-if #:call-while #:comp #:val
+           #:call #:call-if #:call-while #:lit #:val
            #:<comp #:reg #:regc #:/>))
 
 (in-package :sf-builtin)
@@ -200,10 +200,10 @@
 (f:reg 'in #'(lambda () (f:pushd (iter:next-value f:*input*))))
 (f:reg 'next #'f:next)
 
-(f:reg 'comp #'(lambda () (cons (f:popd) f::*buffer*)))
 (f:reg 'call #'(lambda () (f:call (f:popd))))
 (f:reg 'call-if #'call-if)
 (f:reg 'call-while #'call-while)
+(f:reg 'lit #'(lambda () (cons (f:popd) f::*buffer*)))
 (f:reg 'val #'(lambda () (f:pushd (list #'f:next (f:popd)))))
 
 (f:reg '<comp #'f:comp-input)

test/test-forge.lisp

@@ -57,4 +57,4 @@
 
 (deftest test-if ()
   (forge:exec-list '(<comp in <comp swp reg /> in <defc regc))
-  (forge:exec-list '(<defc <if <comp next next comp comp next call-if comp />)))
+  (forge:exec-list '(<defc <if <comp next next lit lit next call-if lit />)))