>From 40567493c97cdd232fcb7fb4273ae9f3f4fb952d Mon Sep 17 00:00:00 2001
From: Kristian Lein-Mathisen <address@hidden>
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: #<unspecified>

	Call history:

	<syntax>	  (getter-with-setter (void) (void))
	<syntax>	  (void)
	<syntax>	  (void)
	<eval>	  (getter-with-setter (void) (void))
	<eval>	  (void)
	<eval>	  (void)	<--

Signed-off-by: Peter Bex <address@hidden>
---
 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