scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

lambda -> λ

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-20 15:36:29 +01:00
parent 75bf044fd8
commit cd714773be
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
networks.rkt
View file

@ -89,12 +89,12 @@
;;; 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)
(lambda (s) (eval-with s form))) (λ (s) (eval-with s form)))
;;; Build a network from a network form. ;;; Build a network from a network form.
(define (network-form->network bnf) (define (network-form->network bnf)
(make-hash (make-hash
(hash-map bnf (lambda (x form) (hash-map bnf (λ (x form)
(cons x (update-function-form->update-function form)))))) (cons x (update-function-form->update-function form))))))
;;; Build a network from a list of pairs of forms of update functions. ;;; Build a network from a list of pairs of forms of update functions.

2
utils.rkt
View file

@ -120,7 +120,7 @@
;;; ;;;
(define (eval-with ht expr) (define (eval-with ht expr)
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(hash-for-each ht (lambda (x val) (hash-for-each ht (λ (x val)
(namespace-set-variable-value! x val))) (namespace-set-variable-value! x val)))
(eval expr))) (eval expr)))