Remove gratuitous layer of gensym
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Sat, 21 Jul 2018 19:01:20 +0100
changeset 406 3a84d16cac19
parent 405 5a019affe985
child 407 050363358370
Remove gratuitous layer of gensym
experiments/little-smalltalk/jit-SmallWorld-2015.rkt
--- a/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Sat Jul 21 18:57:53 2018 +0100
+++ b/experiments/little-smalltalk/jit-SmallWorld-2015.rkt	Sat Jul 21 19:01:20 2018 +0100
@@ -53,7 +53,7 @@
 (define-syntax let@
   (syntax-rules ()
     [(_ [n n-code-exp] body-code-exp)
-     (let@ [n (gensym 'n) n-code-exp] body-code-exp)]
+     (let@ [n 'n n-code-exp] body-code-exp)]
     [(_ [n n-exp n-code-exp] body-code-exp)
      (let ((n (gensym n-exp)))
        `(let ((,n ,n-code-exp))