suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix string-constants

Browse Source
This commit is contained in:
Robby Findler 2013-09-03 20:18:37 -05:00
parent ddcb031805
commit 1ecdb6d6f9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/string-constants-lib/string-constants/string-constant.rkt
View File

@ -94,14 +94,14 @@
first-string-constant-set))
(define (dynamic-string-constant key)
(dynamic-string-constant/who key 'dynamic-string-constant))
(dynamic-string-constant/who the-sc key 'dynamic-string-constant))
(define (dynamic-string-constants key)
(for/list ([sc (in-list available-string-constant-sets)])
(dynamic-string-constant sc 'dynamic-string-constants)))
(dynamic-string-constant/who sc key 'dynamic-string-constants)))
(define (dynamic-string-constant/who key who)
(hash-ref (sc-constants the-sc) key
(define (dynamic-string-constant/who an-sc key who)
(hash-ref (sc-constants an-sc) key
(λ ()
(hash-ref (sc-constants first-string-constant-set)
key