New upstream version 2.19.65

[lilypond.git] / guile18 / lang / elisp / internals / null.scm

diff --git a/guile18/lang/elisp/internals/null.scm b/guile18/lang/elisp/internals/null.scm
new file mode 100644 (file)
index 0000000..94e2b28
--- /dev/null
+++ b/guile18/lang/elisp/internals/null.scm
@@ -0,0 +1,13 @@
+(define-module (lang elisp internals null)
+  #:export (->nil lambda->nil null))
+
+(define (->nil x)
+  (or x %nil))
+
+(define (lambda->nil proc)
+  (lambda args
+    (->nil (apply proc args))))
+
+(define (null obj)
+  (->nil (or (not obj)
+            (null? obj))))