networks: eval-with → eval1-with
This makes the type checker happy because it's more precise to use eval1-with.
This commit is contained in:
parent
556a4ae8bf
commit
75560658a0
1 changed files with 1 additions and 1 deletions
|
@ -275,7 +275,7 @@
|
|||
|
||||
;;; Build an update function from an update function form.
|
||||
(define (update-function-form->update-function form)
|
||||
(λ (s) (eval-with s form)))
|
||||
(λ (s) (eval1-with s form)))
|
||||
|
||||
(module+ test
|
||||
(test-case "update-function-form->update-function"
|
||||
|
|
Loading…
Reference in a new issue