add 'unit'-predicate for ingredients

2017-04-05 15:02:38 +02:00 · 2017-04-05 15:02:38 +02:00 · 1db904e6a1
commit 1db904e6a1
parent 50f77e6a70
1 changed files with 5 additions and 0 deletions
--- a/parse.scm
+++ b/parse.scm
@ -22,6 +22,11 @@
  (lambda (ingredient)
    (car ingredient)))

+(define ingredient-unit
+  (lambda (ingredient)
+    (if (= (length ingredient) 2)
+        ""
+        (car (cdr ingredient)))))

 ;;