From 634c1d1f51c72a0f106760cc7028b10be37d3a5a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 24 Feb 2017 16:46:52 -0800 Subject: [PATCH] update --- beautiful-racket-demo/basic-demo-3/expander.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/basic-demo-3/expander.rkt b/beautiful-racket-demo/basic-demo-3/expander.rkt index ad56702..b0ac893 100644 --- a/beautiful-racket-demo/basic-demo-3/expander.rkt +++ b/beautiful-racket-demo/basic-demo-3/expander.rkt @@ -10,8 +10,8 @@ [(VAR-ID ...) (find-property 'b-id #'(LINE ...))] [(REQ-SPEC ...) (find-property 'b-require-spec #'(LINE ...))] [((SHELL-ID SHELL-VAL) ...) - (for/list ([(arg idx) (in-indexed (current-command-line-arguments))]) - (list (format-id caller-stx "arg~a" idx) arg))]) ; explain why (format-datum 'arg~a idx) won't work + (for/list ([(val idx) (in-indexed (current-command-line-arguments))]) + (list (suffix-id #'arg idx #:context caller-stx) val))]) #'(#%module-begin (module configure-runtime br (require "runtime.rkt")