cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

use separate reader and writer functions / methods for data stack and test result

Browse source
This commit is contained in:
Helmut Merz 2024-04-21 14:17:11 +02:00
parent 6f93968e4b
commit 9bed7704b6
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
forge/forge.lisp
View file

@ -17,7 +17,10 @@
(funcall (find-symbol (symbol-name x) :scopes/forge) fe)
(pushd fe x))))
(defmacro data-stack (fe)
(defun data-stack (fe)
(elt fe 0))
(defmacro data-stack! (fe)
`(elt ,fe 0))
; forge primitives
@ -28,8 +31,8 @@
; internal definitions
(defun popd (fe)
(pop (data-stack fe)))
(pop (data-stack! fe)))
(defun pushd (fe v)
(push v (data-stack fe)))
(push v (data-stack! fe)))

7
testing.lisp
View file

@ -12,8 +12,11 @@
(vector nil))
(defun assert-eq (tst have wanted)
(push (equalp have wanted) (result tst)))
(push (equalp have wanted) (result! tst)))
(defmacro result (tst)
(defun result (tst)
(elt tst 0))
(defmacro result! (tst)
`(elt ,tst 0))