>From 40567493c97cdd232fcb7fb4273ae9f3f4fb952d Mon Sep 17 00:00:00 2001
From: Kristian Lein-Mathisen
Date: Sat, 25 May 2013 16:58:04 +0200
Subject: [PATCH] Adds argument-type check on getter-with-setter
===== before:
$ csi -p '(getter-with-setter (void) (void))'
Segmentation fault (core dumped)
===== after:
$ csi -p '(getter-with-setter (void) (void))'
Error: (getter-with-setter) bad argument type - not a procedure: #
Call history:
(getter-with-setter (void) (void))
(void)
(void)
(getter-with-setter (void) (void))
(void)
(void) <--
Signed-off-by: Peter Bex
---
library.scm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/library.scm b/library.scm
index 5a2862e..ddc8fcb 100644
--- a/library.scm
+++ b/library.scm
@@ -2232,6 +2232,8 @@ EOF
(define setter ##sys#setter)
(define (getter-with-setter get set #!optional info)
+ (##sys#check-closure get 'getter-with-setter)
+ (##sys#check-closure set 'getter-with-setter)
(let ((getdec (cond (info
(##sys#check-string info 'getter-with-setter)
(##sys#make-lambda-info info))
--
1.8.2.3