From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 25 Mar 2012 09:01:16 +0000 (-0700)
Subject: Swank might use t for the true object; define it to the symbol T when
X-Git-Tag: release-9.2.0~258
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1fec484166570540ccb205b664a6b9fc7da1da39;p=mit-scheme.git

Swank might use t for the true object; define it to the symbol T when
evaluating swank exprs.
---

diff --git a/src/runtime/swank.scm b/src/runtime/swank.scm
index 52ae96991..d8317210c 100644
--- a/src/runtime/swank.scm
+++ b/src/runtime/swank.scm
@@ -952,6 +952,7 @@ swank:xref
 (define (elisp-true? o) (not (elisp-false? o)))
 
 (define nil '())
+(define t 'T)
 
 (define (->line o)
   (let ((r (write-to-string o 100)))