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

Woohoo!! Only got APPLY and EVAL yet to test!

Browse source
This commit is contained in:
Simon Brooke 2019-08-17 10:21:08 +01:00
parent a0aa434933
commit b92a24c089
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/beowulf/eval.clj
View file

@ -198,7 +198,7 @@
See page 12 of the Lisp 1.5 Programmers Manual." See page 12 of the Lisp 1.5 Programmers Manual."
[a y] [a y]
(cond (cond
(primitive-atom? y) (sub2 a y) (= (primitive-atom? y) 'T) (sub2 a y)
:else :else
(make-cons-cell (sublis a (car y)) (sublis a (cdr y))))) (make-cons-cell (sublis a (car y)) (sublis a (cdr y)))))

9
test/beowulf/bootstrap_test.clj
View file

@ -218,3 +218,12 @@
'D 'D
(gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))] (gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))]
(is (= actual expected))))) (is (= actual expected)))))
(deftest sublis-tests
(testing "sublis"
(let [expected "(SHAKESPEARE WROTE (THE TEMPEST))"
actual (print-str
(sublis
(gsp "((X . SHAKESPEARE) (Y . (THE TEMPEST)))")
(gsp "(X WROTE Y)")))]
(is (= actual expected)))))