From 9348168ed53d1d24a4936e384c04da45d5c89b4f Mon Sep 17 00:00:00 2001 From: BT Templeton Date: Wed, 15 Jun 2011 20:21:28 -0400 Subject: add `nil?' primitive * libguile/boolean.c (scm_nil_p): New function. * libguile/vm-i-scheme.c (nilp, not_nilp): * libguile/vm-i-system.c (br_if_nil, br_if_not_nil): New instructions. Renumber other ops. * libguile/_scm.h (SCM_OBJCODE_MINOR_VERSION): Increment. * module/language/assembly/compile-bytecode.scm (compile-bytecode): Add support for writing `br-if-nil' and `br-if-not-nil' instructions. * module/language/assembly/disassemble.scm (code-annotation): Add `br-if-nil' and `br-if-not-nil' to the list of branch instructions. * module/language/tree-il/compile-glil.scm: Add `nil?' to `*primcall-ops*'. (flatten): Use the new branch instructions for `nil?' conditionals. * module/language/tree-il/primitives.scm: Add `nil?' to `*interesting-primitive-names*', `*effect-free-primitives', and `*effect+exception-free-primitives*'. --- libguile/_scm.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/_scm.h') diff --git a/libguile/_scm.h b/libguile/_scm.h index 48fb2ccb6..a78a4e094 100644 --- a/libguile/_scm.h +++ b/libguile/_scm.h @@ -206,7 +206,7 @@ /* Major and minor versions must be single characters. */ #define SCM_OBJCODE_MAJOR_VERSION 2 -#define SCM_OBJCODE_MINOR_VERSION 0 +#define SCM_OBJCODE_MINOR_VERSION 1 #define SCM_OBJCODE_MAJOR_VERSION_STRING \ SCM_CPP_STRINGIFY(SCM_OBJCODE_MAJOR_VERSION) #define SCM_OBJCODE_MINOR_VERSION_STRING \ -- cgit v1.2.3