~ chicken-core (chicken-5) 9540677374afd1b1e90cc2004066591762ee2460

commit 9540677374afd1b1e90cc2004066591762ee2460
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 20 00:33:39 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Mar 20 00:33:39 2011 +0100

    types.db fixed (unquoted literals in rewrite templates)

diff --git a/types.db b/types.db
index dfdb6a03..fe4ed074 100644
--- a/types.db
+++ b/types.db
@@ -91,8 +91,8 @@
 (cdddar (procedure cdddar (pair) *))
 (cddddr (procedure cddddr (pair) *))
 
-(set-car! (procedure set-car! (pair *) undefined) ((pair *) (##sys#setslot #(1) 0 #(2))))
-(set-cdr! (procedure set-cdr! (pair *) undefined) ((pair *) (##sys#setslot #(1) 1 #(2))))
+(set-car! (procedure set-car! (pair *) undefined) ((pair *) (##sys#setslot #(1) '0 #(2))))
+(set-cdr! (procedure set-cdr! (pair *) undefined) ((pair *) (##sys#setslot #(1) '1 #(2))))
 
 (null? (procedure null? (*) boolean) ((null) (let ((#:tmp #(1))) '#t)) ((not null) (let ((#:tmp #(1))) '#f)))
 (list? (procedure list? (*) boolean) (((or null pair list)) (let ((#:tmp #(1))) '#t)) (((not (or null pair list))) (let ((#:tmp #(1))) '#f)))
@@ -493,7 +493,7 @@
 (interaction-environment (procedure interaction-environment () *))
 
 (port-closed? (procedure port-closed? (port) boolean)
-	      ((port) (##sys#slot #(1) 8)))
+	      ((port) (##sys#slot #(1) '8)))
 
 ;; chicken
 
@@ -760,7 +760,7 @@
 (parentheses-synonyms (procedure parentheses-synonyms (#!optional *) *))
 
 (port-name (procedure port-name (#!optional port) *)
-	   ((port) (##sys#slot #(1) 3)))
+	   ((port) (##sys#slot #(1) '3)))
 
 (port-position (procedure port-position (#!optional port) fixnum))
 
@@ -796,7 +796,7 @@
 (set-parameterized-read-syntax! (procedure set-parameterized-read-syntax! (char procedure) undefined))
 
 (set-port-name! (procedure set-port-name! (port string) undefined)
-		((port string) (##sys#setslot #(1) 3 #(2))))
+		((port string) (##sys#setslot #(1) '3 #(2))))
 
 (set-read-syntax! (procedure set-read-syntax! (char procedure) undefined))
 (set-sharp-read-syntax! (procedure set-sharp-read-syntax! (char procedure) undefined))
@@ -819,7 +819,7 @@
 (symbol-escape (procedure symbol-escape (#!optional *) *))
 
 (symbol-plist (procedure symbol-plist (symbol) list)
-	      ((symbol) (##sys#slot #(1) 2)))
+	      ((symbol) (##sys#slot #(1) '2)))
 
 (syntax-error (procedure syntax-error (#!rest) noreturn))
 (system (procedure system (string) fixnum))
@@ -874,7 +874,7 @@
 (o (procedure o (#!rest (procedure (*) *)) (procedure (*) *)))
 
 (queue->list (procedure queue->list ((struct queue)) list)
-	     (((struct queue)) (##sys#slot #(1) 1)))
+	     (((struct queue)) (##sys#slot #(1) '1)))
 
 (queue-add! (procedure queue-add! ((struct queue) *) undefined))
 (queue-empty? (procedure queue-empty? ((struct queue)) boolean))
@@ -966,23 +966,23 @@
 ;irregex-apply-match
 
 (irregex-dfa (procedure irregex-dfa ((struct regexp)) *)
-	     (((struct regexp)) (##sys#slot #(1) 1)))
+	     (((struct regexp)) (##sys#slot #(1) '1)))
 
 (irregex-dfa/extract (procedure irregex-dfa/extract ((struct regexp)) *)
-		     (((struct regexp)) (##sys#slot #(1) 3)))
+		     (((struct regexp)) (##sys#slot #(1) '3)))
 
 (irregex-dfa/search (procedure irregex-dfa/search ((struct regexp)) *)
-		    (((struct regexp)) (##sys#slot #(1) 2)))
+		    (((struct regexp)) (##sys#slot #(1) '2)))
 
 (irregex-extract (procedure irregex-extract (* string #!optional fixnum fixnum) list))
 (irregex-flags (procedure irregex-flags ((struct regexp)) *)
-	       (((struct regexp)) (##sys#slot #(1) 5)))
+	       (((struct regexp)) (##sys#slot #(1) '5)))
 
 (irregex-fold (procedure irregex-fold (* (procedure (fixnum (struct regexp-match)) *) * string #!optional (procedure (fixnum *) *) fixnum fixnum) *))
 (irregex-fold/chunked (procedure irregex-fold/chunked (* (procedure (fixnum (struct regexp-match)) *) * procedure * #!optional (procedure (fixnum *) *) fixnum fixnum) *))
 
 (irregex-lengths (procedure irregex-lengths ((struct regexp)) *)
-		 (((struct regexp)) (##sys#slot #(1) 7)))
+		 (((struct regexp)) (##sys#slot #(1) '7)))
 
 (irregex-match (procedure irregex-match (* string) *))
 ;irregex-match?
@@ -996,7 +996,7 @@
 (irregex-match-end-index (procedure irregex-match-end-index ((struct regexp-match) #!optional *) fixnum))
 
 (irregex-match-names (procedure irregex-match-names ((struct regexp-match)) list)
-		     (((struct regexp-match)) (##sys#slot #(1) 2)))
+		     (((struct regexp-match)) (##sys#slot #(1) '2)))
 
 (irregex-match-num-submatches (procedure irregex-match-num-submatches ((struct regexp-match)) fixnum))
 (irregex-match-start (procedure irregex-match-start (* #!optional *) *))
@@ -1008,16 +1008,16 @@
 (irregex-match/chunked (procedure irregex-match/chunked (* * * #!optional fixnum) *))
 
 (irregex-names (procedure irregex-names ((struct regexp)) *)
-	       (((struct regexp)) (##sys#slot #(1) 8)))
+	       (((struct regexp)) (##sys#slot #(1) '8)))
 
 (irregex-new-matches (procedure irregex-new-matches (*) *))
 
 (irregex-nfa (procedure irregex-nfa ((struct regexp)) *)
-	     (((struct regexp)) (##sys#slot #(1) 4)))
+	     (((struct regexp)) (##sys#slot #(1) '4)))
 
 (irregex-num-submatches (procedure irregex-num-submatches ((struct regexp))
 				   fixnum)
-			(((struct regexp)) (##sys#slot #(1) 6)))
+			(((struct regexp)) (##sys#slot #(1) '6)))
 
 (irregex-opt (procedure irregex-opt (list) *))
 (irregex-quote (procedure irregex-quote (string) string))
@@ -1112,7 +1112,7 @@
 (pointer-vector-fill! (procedure pointer-vector-fill! (pointer-vector pointer) undefined))
 
 (pointer-vector-length (procedure pointer-vector-length (pointer-vector) fixnum)
-		       ((pointer-vector) (##sys#slot #(1) 1)))
+		       ((pointer-vector) (##sys#slot #(1) '1)))
 
 (pointer-vector-ref (procedure pointer-vector-ref (pointer-vector fixnum) pointer))
 (pointer-vector-set! (procedure pointer-vector-set! (pointer-vector fixnum pointer) pointer))
@@ -1736,13 +1736,13 @@
 (mutex-lock! (procedure mutex-lock! ((struct mutex) #!optional * (struct thread)) boolean))
 
 (mutex-name (procedure mutex-name ((struct mutex)) *)
-	    (((struct mutex)) (##sys#slot #(1) 1)))
+	    (((struct mutex)) (##sys#slot #(1) '1)))
 
 (mutex-specific (procedure mutex-specific ((struct mutex)) *)
-		(((struct mutex)) (##sys#slot #(1) 6)))
+		(((struct mutex)) (##sys#slot #(1) '6)))
 
 (mutex-specific-set! (procedure mutex-specific-set! ((struct mutex) *) undefined)
-		     (((struct mutex) *) (##sys#setslot #(1) 6 #(2))))
+		     (((struct mutex) *) (##sys#setslot #(1) '6 #(2))))
 
 (mutex-state (procedure mutex-state ((struct mutex)) symbol))
 (mutex-unlock! (procedure mutex-unlock! ((struct mutex) #!optional (struct condition-variable) *) undefined))
@@ -1757,10 +1757,10 @@
 (thread-join! (procedure thread-join! ((struct thread) #!optional * *) *))
 
 (thread-name (procedure thread-name ((struct thread)) *)
-	     (((struct thread)) (##sys#slot #(1) 6)))
+	     (((struct thread)) (##sys#slot #(1) '6)))
 
 (thread-quantum (procedure thread-quantum ((struct thread)) fixnum)
-		(((struct thread)) (##sys#slot #(1) 9)))
+		(((struct thread)) (##sys#slot #(1) '9)))
 
 (thread-quantum-set! (procedure thread-quantum-set! ((struct thread) fixnum) undefined))
 (thread-resume! (procedure thread-resume! ((struct thread)) undefined))
@@ -1768,15 +1768,15 @@
 (thread-sleep! (procedure thread-sleep! (*) undefined))
 
 (thread-specific (procedure thread-specific ((struct thread)) *)
-		 (((struct thread)) (##sys#slot #(1) 10)))
+		 (((struct thread)) (##sys#slot #(1) '10)))
 
 (thread-specific-set! (procedure thread-specific-set! ((struct thread) *) undefined)
-		      (((struct thread) *) (##sys#setslot #(1) 10 #(2))))
+		      (((struct thread) *) (##sys#setslot #(1) '10 #(2))))
 
 (thread-start! (procedure thread-start! ((or (struct thread) (procedure () . *))) (struct thread)))
 
 (thread-state (procedure thread-state ((struct thread)) symbol)
-	      (((struct thread)) (##sys#slot #(1) 3)))
+	      (((struct thread)) (##sys#slot #(1) '3)))
 
 (thread-suspend! (procedure thread-suspend! ((struct thread)) undefined))
 (thread-terminate! (procedure thread-terminate! ((struct thread)) undefined))
@@ -1982,23 +1982,23 @@
 (hash-table-for-each (procedure hash-table-for-each ((struct hash-table) (procedure (* *) . *)) undefined))
 
 (hash-table-has-initial? (procedure hash-table-has-initial? ((struct hash-table)) boolean)
-			 (((struct hash-table)) (##sys#slot #(1) 9))) ;XXX might return other than #t
+			 (((struct hash-table)) (##sys#slot #(1) '9))) ;XXX might return other than #t
 
 (hash-table-hash-function (procedure hash-table-hash-function ((struct hash-table)) (procedure (* fixnum) fixnum))
-			  (((struct hash-table)) (##sys#slot #(1) 4)))
+			  (((struct hash-table)) (##sys#slot #(1) '4)))
 
 (hash-table-initial (procedure hash-table-initial ((struct hash-table)) *))
 (hash-table-keys (procedure hash-table-keys ((struct hash-table)) list))
 (hash-table-map (procedure hash-table-map ((struct hash-table) (procedure (* *) *)) list))
 
 (hash-table-max-load (procedure hash-table-max-load ((struct hash-table)) fixnum)
-		     (((struct hash-table)) (##sys#slot #(1) 6)))
+		     (((struct hash-table)) (##sys#slot #(1) '6)))
 
 (hash-table-merge (procedure hash-table-merge ((struct hash-table) (struct hash-table)) (struct hash-table)))
 (hash-table-merge! (procedure hash-table-merge! ((struct hash-table) (struct hash-table)) undefined))
 
 (hash-table-min-load (procedure hash-table-min-load ((struct hash-table)) fixnum)
-		     (((struct hash-table)) (##sys#slot #(1) 5)))
+		     (((struct hash-table)) (##sys#slot #(1) '5)))
 
 (hash-table-ref (procedure hash-table-ref ((struct hash-table) * #!optional (procedure () *)) *))
 (hash-table-ref/default (procedure hash-table-ref/default ((struct hash-table) * *) *))
@@ -2006,7 +2006,7 @@
 (hash-table-set! (procedure hash-table-set! ((struct hash-table) * *) undefined))
 
 (hash-table-size (procedure hash-table-size ((struct hash-table)) fixnum)
-		 (((struct hash-table)) (##sys#slot #(1) 2)))
+		 (((struct hash-table)) (##sys#slot #(1) '2)))
 
 (hash-table-update! (procedure hash-table-update! ((struct hash-table) * (procedure (*) *) #!optional (procedure () *)) *))
 (hash-table-update!/default (procedure hash-table-update!/default ((struct hash-table) * (procedure (*) *) *) *))
@@ -2014,10 +2014,10 @@
 (hash-table-walk (procedure hash-table-walk ((struct hash-table) (procedure (* *) . *)) undefined))
 
 (hash-table-weak-keys (procedure hash-table-weak-keys ((struct hash-table)) boolean)
-		      (((struct hash-table)) (##sys#slot #(1) 7)))
+		      (((struct hash-table)) (##sys#slot #(1) '7)))
 
 (hash-table-weak-values (procedure hash-table-weak-values ((struct hash-table)) boolean)
-			(((struct hash-table)) (##sys#slot #(1) 8)))
+			(((struct hash-table)) (##sys#slot #(1) '8)))
 
 (hash-table? (procedure hash-table? (*) boolean)
 	     (((struct hash-table)) (let ((#:tmp #(1))) '#t))
@@ -2049,7 +2049,7 @@
 (tcp-listen (procedure tcp-listen (fixnum #!optional fixnum *) (struct tcp-listener)))
 
 (tcp-listener-fileno (procedure tcp-listener-fileno ((struct tcp-listener)) fixnum)
-		     (((struct tcp-listener)) (##sys#slot #(1) 1)))
+		     (((struct tcp-listener)) (##sys#slot #(1) '1)))
 
 (tcp-listener-port (procedure tcp-listener-port ((struct tcp-listener)) fixnum))