Resolve the issue that caused the amb language parser to fail and figure out how to get multiple amb-solutions

2021-02-17 19:37:53 -05:00
parent 2afc4f4510
commit 80adad6179
3 changed files with 56 additions and 29 deletions
--- a/misc/amb.scm
+++ b/misc/amb.scm
@@ -158,8 +158,6 @@
    (assert (all-different? kitty betty ethel joan mary))
    (map list '(kitty betty ethel joan mary) (list kitty betty ethel joan mary))))

-(define (require p)
-  (if (not p) (amb)))

 ;;; to show cpu time
 (define-syntax cpu-time/sec