sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Put a bang on add-def.

This commit is contained in:
sforman 2023-10-10 10:43:38 -07:00
parent a7c206745a
commit 937f6bfce5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
implementations/scheme-chicken/joy.scm
View File

@ -227,13 +227,13 @@
;Definitions ;Definitions
(define (initialize) (define (initialize)
(load-defs (make-hash-table string=? string-hash))) (load-defs! (make-hash-table string=? string-hash)))
(define (load-defs dict) (define (load-defs! dict)
(for-each (lambda (def) (add-def def dict)) (defs)) ;defs is defined in defs.scm (for-each (lambda (def) (add-def! def dict)) (defs)) ;defs is defined in defs.scm
dict) dict)
(define (add-def def dict) (define (add-def! def dict)
(let ((def_list (text->expression def))) (let ((def_list (text->expression def)))
(hash-table-set! dict (car def_list) (cdr def_list)))) (hash-table-set! dict (car def_list) (cdr def_list))))