From 53d470edbec0f5a4fa1fec693487d10e6c42f5c1 Mon Sep 17 00:00:00 2001
From: aeggenberger <andrew.eggenberger@gmail.com>
Date: Sun, 1 Jan 2017 17:56:34 -0600
Subject: [PATCH] Parentheses shift

Changed to bind the result of (raise from) to upper.
---
 chapter2/2.84.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chapter2/2.84.scm b/chapter2/2.84.scm
index fe57f26..6855040 100644
--- a/chapter2/2.84.scm
+++ b/chapter2/2.84.scm
@@ -21,7 +21,7 @@
         (type-to (type-tag to)))
     (if (equal? type-from type-to)
         from 
-        (let ((upper) (raise from))
+        (let ((upper (raise from)))
           (if upper
               (raise-to upper to)
               #f)))))