Give the type-name signature off `define-record-procedures' a name.

2010-10-08 14:59:29 +02:00 · 2010-10-08 14:59:29 +02:00 · 29a0511439
commit 29a0511439
parent 9b1188c77a
1 changed files with 1 additions and 1 deletions
--- a/collects/deinprogramm/define-record-procedures.scm
+++ b/collects/deinprogramm/define-record-procedures.scm
@ -171,7 +171,7 @@
 		       (with-syntax ((base-signature
 				      (stepper-syntax-property
 				       #'(define ?type-name 
-					   (signature (predicate real-predicate)))
+					   (signature ?type-name (predicate real-predicate)))
 				       'stepper-skip-completely 
 				       #t))
 				     (constructor-signature