From ed1f406102738812fafa5e49ee131fe06c177687 Mon Sep 17 00:00:00 2001 From: Bad Diode Date: Wed, 13 Oct 2021 16:44:17 +0200 Subject: Add a lot of primitive types --- examples/booleans.bdl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/booleans.bdl') diff --git a/examples/booleans.bdl b/examples/booleans.bdl index e38fb1f..0598450 100644 --- a/examples/booleans.bdl +++ b/examples/booleans.bdl @@ -44,7 +44,7 @@ (print "(if (or false false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or false false) (+ 1 2 3) (+ 7 8 9)) (print "(if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) -> ") (if (or (+ 1 2 3) false) (+ 1 2 3) (+ 7 8 9)) (print "(if true 7) -> ") (if true 7) -(print "(if false 7) -> ") (if false 7) +(print "(if false 7) -> ") (if false 7) (newline) ;; Cond. (print "(cond ((and true true true) 1) ((or true true false) 2) (else 3)) -> ") @@ -61,7 +61,7 @@ (else 3)) (print "(cond ((and true true true) 1) ((or true true false) 2)) -> ") (cond ((and true true false) 1) - ((or false false false) 2)) + ((or false false false) 2)) (newline) (print "(cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) (else 3)) -> ") (cond ((and true true true) (+ 1 2 3)) ((or true true false) 2) -- cgit v1.2.1