From 6018e2200d854cab0ee1464b267a507343686778 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 18 Jan 2008 22:18:26 -0500
Subject: [PATCH] Made (define foo) expand to (define foo (void)).

---
 scheme/last-revision       | 2 +-
 scheme/psyntax.expander.ss | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 02b327e..c52d44e 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1341
+1342
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 9f7f3c5..62ea874 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -786,7 +786,9 @@
         ((_ (id . fmls) b b* ...) (id? id)
          (values id (cons 'defun (cons fmls (cons b b*)))))
         ((_ id val) (id? id)
-         (values id (cons 'expr val))))))
+         (values id (cons 'expr val)))
+        ((_ id) (id? id) 
+         (values id (cons 'expr (bless '(void))))))))
 
   (define parse-define-syntax
     (lambda (x)