[Chicken-hackers] [PATCH] Fix malformed specialization for irregex-match-num-submatches

[Evan Hanson]

It was missing parentheses on a ##sys#slot invocation and contained unquoted
fixnum literals.
---
 types.db |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/types.db b/types.db
index 6a202dd..8614109 100644
--- a/types.db
+++ b/types.db
@@ -1413,7 +1413,7 @@
 
 (irregex-match-num-submatches (#(procedure #:enforce) 
irregex-match-num-submatches ((struct regexp-match)) fixnum)
                               (((struct regexp-match))
-                               (fx- (fx/ (##sys#size ##sys#slot #(1) 1) 4) 2)))
+                               (fx- (fx/ (##sys#size (##sys#slot #(1) '1)) '4) 
'2)))
 
 (irregex-new-matches (procedure irregex-new-matches (*) *)) ; really only for 
internal use..
 (irregex-opt (#(procedure #:clean #:enforce) irregex-opt (list) *))
-- 
1.7.10.4