From 7e58032880b97df1fd9c1c8626dd778de28cec5a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 2 Sep 2008 00:49:50 -0700 Subject: [PATCH] make thunk? understand programs * libguile/procs.c (thunk?): Return #t for thunk programs. --- libguile/procs.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/libguile/procs.c b/libguile/procs.c index 2359eae1f..557da4934 100644 --- a/libguile/procs.c +++ b/libguile/procs.c @@ -28,6 +28,7 @@ #include "libguile/validate.h" #include "libguile/procs.h" +#include "libguile/programs.h" @@ -218,7 +219,9 @@ SCM_DEFINE (scm_thunk_p, "thunk?", 1, 0, 0, obj = SCM_PROCEDURE (obj); goto again; default: - ; + if (SCM_PROGRAM_P (obj) && SCM_PROGRAM_DATA (obj)->nargs == 0) + return SCM_BOOL_T; + /* otherwise fall through */ } } return SCM_BOOL_F;