mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

make thunk? understand programs

Browse source 
* libguile/procs.c (thunk?): Return #t for thunk programs.
This commit is contained in:
Andy Wingo 2008-09-02 00:49:50 -07:00
parent b95b1b835e
commit 7e58032880
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/procs.c
View file

@ -28,6 +28,7 @@
#include "libguile/validate.h" #include "libguile/validate.h"
#include "libguile/procs.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); obj = SCM_PROCEDURE (obj);
goto again; goto again;
default: default:
; if (SCM_PROGRAM_P (obj) && SCM_PROGRAM_DATA (obj)->nargs == 0)
return SCM_BOOL_T;
/* otherwise fall through */
} }
} }
return SCM_BOOL_F; return SCM_BOOL_F;