Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 03:36:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Temporarily enable code that generates a compiler error

Browse source
This commit is contained in:
Justin Ethier 2018-02-01 13:38:57 -05:00
parent ba3b016c43
commit 142dbc3fb4
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/match-tests.scm
View file

@ -95,11 +95,13 @@
(match (match
lst lst
;(() 0) ;(() 0)
(((? number? n) (or 's 'seconds 'sec) . rest) ;; Temporarily commenting these 2 lines out to track down compiler error with the next:
(+ 0 (* #e1 n) (calc-time rest))) ; (((? number? n) (or 's 'seconds 'sec) . rest)
; ;; TODO: interesting compiler error with these lines: ; (+ 0 (* #e1 n) (calc-time rest)))
; (((? number? n) (or 's 'seconds 'sec) ) ;. rest) ;; TODO: interesting compiler error with these lines:
; (+ (* #e1 n) )) ;(calc-time rest))) (((? number? n) (or 's 'seconds 'sec) ) ;. rest)
(+ (* #e1 n) )) ;(calc-time rest)))
;;
(((? number? n) (or 'm 'min 'minutes) . rest) (((? number? n) (or 'm 'min 'minutes) . rest)
(+ (* #e60 n) (calc-time rest))) (+ (* #e60 n) (calc-time rest)))
(((? number? n) (or 'hours 'h) . rest) (((? number? n) (or 'hours 'h) . rest)