move to state

shriram · Oct 2, 2024 · 36a299d · 36a299d
1 parent 915ccb1
commit 36a299d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/hof/semantics.rkt b/hof/semantics.rkt
@@ -15,7 +15,3 @@
   (unless (list? r)
     (error 'cons "the second argument must be a list: ~a" r))
   (cons f r))
-
-(provide maybe?)
-(define (maybe?)
-  (>= (random) 0.5))
diff --git a/state/semantics.rkt b/state/semantics.rkt
@@ -26,3 +26,7 @@
   (unless (= (vec-len p) 2)
     (error 'set-right! "the first argument must be a pair: ~a" p))
   (vector-set! p 1 v))
+
+(provide maybe?)
+(define (maybe?)
+  (>= (random) 0.5))