From 84e9a2bfc55a10c638aa94d9b8baead2bde8507a Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Fri, 27 Feb 2026 14:17:18 +0100 Subject: [PATCH] forge: define words with Lisp code --- forge/forge.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/forge/forge.lisp b/forge/forge.lisp index 4ec2c77..bfff48d 100644 --- a/forge/forge.lisp +++ b/forge/forge.lisp @@ -181,7 +181,8 @@ #:ptr #:get #:put #:in #:next #:call #:call-if #:call-while #:comp #:lit #:val - #: + #: + #:lisp #:reg-lisp #:setup-builtins )) @@ -230,10 +231,12 @@ (f:reg 'reg #'f:reg-code) (f:reg 'regc #'(lambda () (f:reg-code 'f:comp-word))) -(f:reg 'reg-lisp (lambda () (f:reg (f:popd) (f:compile-lisp (f:popd))))) (f:reg '/> #'(lambda () (iter:stop f:*input*)) 'f:comp-word) +(f:reg 'lisp (lambda () (cons (f:compile-lisp (f:popd)) f::*buffer*))) +(f:reg 'reg-lisp (lambda () (f:reg (f:popd) (f:compile-lisp (f:popd))))) + ;;;; forge-code word definitions (defun setup-builtins ()