From 8092e6e73bf81046fe22143f783cf9c1fbf66401 Mon Sep 17 00:00:00 2001 From: Mike Gran Date: Wed, 10 Feb 2021 08:14:50 -0800 Subject: [PATCH] fix some reference-func probs --- potato/makevars.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/potato/makevars.scm b/potato/makevars.scm index 48dfe03..596d403 100644 --- a/potato/makevars.scm +++ b/potato/makevars.scm @@ -312,7 +312,7 @@ space-separated token in the looked-up value." ((_ 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 or a procedure that evaluates to a string. If the value of the key @@ -346,4 +346,4 @@ that string." (lambda (stx) (syntax-case stx () ((_ key) - #'(reference (symbol->string (syntax->datum #'key))))))) + #'(reference-func (symbol->string (syntax->datum #'key)))))))