simon/beowulf
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Two very quick fixes for failing tests

Browse source
This commit is contained in:
Simon Brooke 2023-04-09 20:59:02 +01:00
parent cde3d79ff3
commit e5677a8300
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
resources/lisp1.5.lsp
View file

@ -114,7 +114,7 @@
EXPR EXPR
(LAMBDA (LAMBDA
(L) (L)
(COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 0)))) (COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 1))))
(LESSP 32767 SUBR (BEOWULF HOST LESSP)) (LESSP 32767 SUBR (BEOWULF HOST LESSP))
(MAPLIST (MAPLIST
32767 32767

2
src/beowulf/reader/generate.clj
View file

@ -94,7 +94,7 @@
(list (if (= (nth p 1) [:quoted-expr [:atom "T"]]) (list (if (= (nth p 1) [:quoted-expr [:atom "T"]])
'T 'T
(generate (nth p 1) context)) (generate (nth p 1) context))
(generate (nth p 2)) context)))) (generate (nth p 2) context)))))
(defn gen-cond (defn gen-cond
"Generate a cond statement from this simplified parse tree fragment `p`; "Generate a cond statement from this simplified parse tree fragment `p`;