mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

Some fixes for strict typing.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-01 21:23:09 +00:00
parent 47a4dcc5b4
commit cf49832683
3 changed files with 36 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/procs.h
View file

@ -109,7 +109,7 @@ typedef struct
+ scm_tc3_closure))
#define SCM_ENV(x) SCM_CDR(x)
#define SCM_SETENV(x, e) SCM_SETCDR (x, e)
#define SCM_TOP_LEVEL(SCM_ENV) (SCM_NULLP(SCM_ENV) || (SCM_BOOL_T == scm_procedure_p (SCM_CAR (SCM_ENV))))
#define SCM_TOP_LEVEL(SCM_ENV) (SCM_NULLP (SCM_ENV) || (SCM_TRUE_P (scm_procedure_p (SCM_CAR (SCM_ENV)))))
/* Procedure-with-setter