[uim-commit] r1731 - in branches/r5rs/sigscheme: . test

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-01 01:17:34 -0700 (Sat, 01 Oct 2005)
New Revision: 1731

Modified:
   branches/r5rs/sigscheme/debug.c
   branches/r5rs/sigscheme/test/test-define.scm
Log:
* small fixes

* sigscheme/debug.c
  - remove SCM_INVALID declaration because it's in sigschemeinternal.h
* sigscheme/test/test-define.scm
  - move (total-report) location 


Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-10-01 07:42:04 UTC (rev 1730)
+++ branches/r5rs/sigscheme/debug.c	2005-10-01 08:17:34 UTC (rev 1731)
@@ -81,7 +81,6 @@
      || CLOSUREP(obj) \
      || VECTORP(obj) \
      || VALUEPACKETP(obj))
-#define SCM_INVALID NULL
 #define OCCUPIED(ent)      (!EQ((ent)->key, SCM_INVALID))
 #define HASH_EMPTY(table)  (!(table).used)
 #define DEFINING_DATUM     (-1)

Modified: branches/r5rs/sigscheme/test/test-define.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-define.scm	2005-10-01 07:42:04 UTC (rev 1730)
+++ branches/r5rs/sigscheme/test/test-define.scm	2005-10-01 08:17:34 UTC (rev 1731)
@@ -66,12 +66,12 @@
 
 (assert-equal? "internal define2" 17 (idefine0 0))
 
-(total-report)
-
-
 ; set!
 (define (set-dot a . b)
   (set! b '(1 2))
+  (display b)
   b)
 
 (assert-equal? "set dot test" '(1 2) (set-dot '()))
+
+(total-report)