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

* procs.c: Introduce the existent C function scm_thunk_p at the

Browse source 
Scheme level as well.
This commit is contained in:
Mikael Djurfeldt 1997-02-28 21:37:30 +00:00
parent 0065d90e1a
commit f76c22afd3
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Fri Feb 28 22:12:25 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* procs.c: Introduce the existent C function scm_thunk_p at the
Scheme level as well.
Wed Feb 26 12:53:58 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Wed Feb 26 12:53:58 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* symbols.c, symbols.h (scm_symbol_value0): New function. Can be * symbols.c, symbols.h (scm_symbol_value0): New function. Can be

2
libguile/procs.c
View file

@ -144,6 +144,8 @@ scm_closure_p (obj)
return SCM_BOOL_F; return SCM_BOOL_F;
} }
SCM_PROC(s_thunk_p, "thunk?", 1, 0, 0, scm_thunk_p);
#ifdef __STDC__ #ifdef __STDC__
SCM SCM
scm_thunk_p (SCM obj) scm_thunk_p (SCM obj)