From 937f6bfce52da3fe4286949a158194f37bf8db88 Mon Sep 17 00:00:00 2001 From: sforman Date: Tue, 10 Oct 2023 10:43:38 -0700 Subject: [PATCH] Put a bang on add-def. --- implementations/scheme-chicken/joy.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 9c72c81..27fc3a8 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -227,13 +227,13 @@ ;Definitions (define (initialize) - (load-defs (make-hash-table string=? string-hash))) + (load-defs! (make-hash-table string=? string-hash))) -(define (load-defs dict) - (for-each (lambda (def) (add-def def dict)) (defs)) ;defs is defined in defs.scm +(define (load-defs! dict) + (for-each (lambda (def) (add-def! def dict)) (defs)) ;defs is defined in defs.scm dict) -(define (add-def def dict) +(define (add-def! def dict) (let ((def_list (text->expression def))) (hash-table-set! dict (car def_list) (cdr def_list))))