X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Flang%2Felisp%2Finternals%2Fnull.scm;fp=guile18%2Flang%2Felisp%2Finternals%2Fnull.scm;h=94e2b28dde9eae645296aa6872e8780c0a6e8afd;hb=139c38d9204dd07f6b235f83bae644faedbc63fd;hp=0000000000000000000000000000000000000000;hpb=652ed35a2013489d0a14fede6307cd2595abb2c4;p=lilypond.git

diff --git a/guile18/lang/elisp/internals/null.scm b/guile18/lang/elisp/internals/null.scm
new file mode 100644
index 0000000000..94e2b28dde
--- /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))))