From 3a59d3f2f126f2f626b0b9a2ad3b52562b036507 Mon Sep 17 00:00:00 2001
From: "Elf M. Sternberg" <elf.sternberg@gmail.com>
Date: Wed, 20 May 2015 22:33:17 -0700
Subject: [PATCH] Metacadr's reuse doesn't kill people. Mutation kills people!

Updated metacadr's test suite to ensure that re-using a
metacadr-generated function does not lead to crashes.  Saw this a lot in
early versions of LISP.
---
 test/lists.coffee | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/test/lists.coffee b/test/lists.coffee
index a102c72..75616b9 100644
--- a/test/lists.coffee
+++ b/test/lists.coffee
@@ -72,4 +72,7 @@ describe 'Metacadr Complex', ->
     ['caaddr', 'X']]
     do (t, v) ->
       it "The #{t} should read #{v}", ->
-        expect(metacadr(t)(mccomplex)).to.equal(v)
+        mcadr = metacadr(t)
+        expect(mcadr mccomplex).to.equal(v)
+        expect(mcadr mccomplex).to.equal(v)
+        expect(mcadr mccomplex).to.equal(v)