kreyren/pman
1
0
Fork 0
Code Issues 16 Pull Requests 2 Releases Activity

fix some reference-func probs

Browse Source
This commit is contained in:
Mike Gran 2021-02-10 08:14:50 -08:00 committed by GitHub
parent 5b86f0344c
commit 8092e6e73b
Signed by: GitHub
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
potato/makevars.scm
View File

@ -312,7 +312,7 @@ space-separated token in the looked-up value."
((_ key) ((_ key)
#'(reference (symbol->string (syntax->datum #'key))))))) #'(reference (symbol->string (syntax->datum #'key)))))))
(define* (reference-func key) (define (reference-func key)
"Looks up KEY in the %makevars hash table. KEY shall be a string "Looks up KEY in the %makevars hash table. KEY shall be a string
or a procedure that evaluates to a string. or a procedure that evaluates to a string.
If the value of the key If the value of the key
@ -346,4 +346,4 @@ that string."
(lambda (stx) (lambda (stx)
(syntax-case stx () (syntax-case stx ()
((_ key) ((_ key)
#'(reference (symbol->string (syntax->datum #'key))))))) #'(reference-func (symbol->string (syntax->datum #'key)))))))