small fixes in stdlib

2019-09-23 22:44:08 +02:00
parent 088127387e
commit 97f45f166f
4 changed files with 14 additions and 14 deletions
@@ -1,10 +1,11 @@
 (define-module automata
+  :imports ("sets.slime")
  :exports (make-dfa)
-  (import "sets.slime")

  (define (make-dfa Q S delta q0 F)
    (let ((q q0))
-      (lambda (s)
-        (set! q (delta q s))
-        (list (if (set::contains? F q) :accept :fail) q))))
+      (set-type! (lambda (s)
+                   (set! q (delta q s))
+                   (list (if (set::contains? F q) :accept :fail) q))
+                 :automaton)))
  )