bldc/tests/test_match_guard_2.lisp


(defun f (x)
  (match x
         ( (apa (? x)) (<= x 10) (+ x 1))
         ( (apa (? x)) (>  x 10) (+ x 100))))


(check (and (= (f '(apa 0)) 1)
            (= (f '(apa 2)) 3)
            (= (f '(apa 11)) 111)))
Squashed 'lispBM/lispBM/' changes from c81eb021..8b64ae8b 8b64ae8b added some tests for matching with guards. 62e2c688 update lbm_ref 14ec7847 error message on malformed recv patterns e9ea4e4e match with guards 0e3a29fc Pattern matching now support optional boolean guard expressions 4af283e8 some precautionary changes to certain fundamentals a4435fb0 added a test of built in map git-subtree-dir: lispBM/lispBM git-subtree-split: 8b64ae8b1193fee0f9f9ca361c25ca9357a3384a 2022-10-31 13:52:58 -07:00
			`(defun f (x)`
			`(match x`
			`( (apa (? x)) (<= x 10) (+ x 1))`
			`( (apa (? x)) (> x 10) (+ x 100))))`



Squashed 'lispBM/lispBM/' changes from f7c74492..5659e40a 5659e40a low-level flash errors propagate into the evaluator cd881c01 tweak lbmref db42aac7 tweak lbmref d1033e98 tweak lbmref 77783470 tweak refman bufcreate d9575830 incremental read-evaluate. Removed all types of arrays except for byte-arrays d5d5fdf1 type checking in array-extensions ca072954 buflen is ok on constant arrays 90614b33 bugfix in lbm_channel string_write de62dbd7 only one is_closure func git-subtree-dir: lispBM/lispBM git-subtree-split: 5659e40aac7a1e43b158a978e4e633ef118afeeb 2023-04-04 03:36:41 -07:00			`(check (and (= (f '(apa 0)) 1)`
			`(= (f '(apa 2)) 3)`
			`(= (f '(apa 11)) 111)))`