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.
|
;;; Build an update function from an update function form.
|
||||||
(define (update-function-form->update-function form)
|
(define (update-function-form->update-function form)
|
||||||
(λ (s) (eval-with s form)))
|
(λ (s) (eval1-with s form)))
|
||||||
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(test-case "update-function-form->update-function"
|
(test-case "update-function-form->update-function"
|
||||||
|
|
Loading…
Reference in a new issue