From 9fd69b57f3f0d8d8b52326688e4c69204fa1b95c Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 3 Apr 2022 14:49:20 -0400 Subject: [PATCH] Don't throw in test code --- src/ludus/interpreter.clj | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/src/ludus/interpreter.clj b/src/ludus/interpreter.clj index 9b0c1d7..4f25280 100644 --- a/src/ludus/interpreter.clj +++ b/src/ludus/interpreter.clj @@ -252,20 +252,8 @@ (def source " - fn fib { - (0) -> 1 - (1) -> 1 - (n) -> add ( - fib (sub (n, 1)) - fib (sub (n, 2))) - } - - fn fact { - (1) -> 1 - (n) -> mult (n, fact (sub (n, 1))) - } - - fib (1) + let s = @{:foo @{:baz 12}, :bar 23} + s :foo :baz ")