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

Beginning work on infix operators in mexprs.

Browse source
This commit is contained in:
Simon Brooke 2023-03-25 16:25:56 +00:00
parent 434276ecea
commit ce7fe8f3ef
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
6 changed files with 152 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/beowulf/mexpr_test.clj
View file

@ -76,3 +76,9 @@
Exception
#"Cannot parse meta expressions in strict mode"
(gsp "label[ff;λ[[x];[atom[x]->x; T->ff[car[x]]]]]"))))))
(deftest assignment-tests
(testing "Function assignment"
(let [expected "(SET (QUOTE FF) (LAMBDA (X) (COND ((ATOM X) X) (T (FF (CAR X))))))"
actual (gsp "ff[x]=[atom[x] -> x; T -> ff[car[x]]]")]
(is (= actual expected)))))