From 142dbc3fb4744f3ee87e3052d3f043de261e7481 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 1 Feb 2018 13:38:57 -0500 Subject: [PATCH] Temporarily enable code that generates a compiler error --- tests/match-tests.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/tests/match-tests.scm b/tests/match-tests.scm index ab5ad50a..d4afe7f5 100644 --- a/tests/match-tests.scm +++ b/tests/match-tests.scm @@ -95,11 +95,13 @@ (match lst ;(() 0) - (((? number? n) (or 's 'seconds 'sec) . rest) - (+ 0 (* #e1 n) (calc-time rest))) -; ;; TODO: interesting compiler error with these lines: -; (((? number? n) (or 's 'seconds 'sec) ) ;. rest) -; (+ (* #e1 n) )) ;(calc-time rest))) +;; Temporarily commenting these 2 lines out to track down compiler error with the next: +; (((? number? n) (or 's 'seconds 'sec) . rest) +; (+ 0 (* #e1 n) (calc-time rest))) + ;; TODO: interesting compiler error with these lines: + (((? number? n) (or 's 'seconds 'sec) ) ;. rest) + (+ (* #e1 n) )) ;(calc-time rest))) +;; (((? number? n) (or 'm 'min 'minutes) . rest) (+ (* #e60 n) (calc-time rest))) (((? number? n) (or 'hours 'h) . rest)