Start to work on 4.45

2021-02-06 21:48:35 -05:00
parent 1a2ae825d2
commit 2afc4f4510
3 changed files with 58 additions and 3 deletions
--- a/misc/amb.scm
+++ b/misc/amb.scm
@@ -158,6 +158,8 @@
    (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