bootstrap: Add bootstrap build scripts.
[mes.git] / tests / psyntax.test
index 1954b972ce83ea0f92cb01b02ea6caeb4dc557ff..701f0b057705e6d6389b3e5ce2a7d704a2a8c46d 100755 (executable)
@@ -27,10 +27,15 @@ exit $?
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 (cond-expand
- (guile-2
+ (guile-2.2
   (define sc-expand identity)
   (define syntax-object->datum syntax->datum)
   (define datum->syntax-object datum->syntax))
+ (guile-2
+  (define sc-expand identity)
+  (define syntax-object->datum syntax->datum)
+  (define datum->syntax-object datum->syntax)
+  (define-macro (with-ellipsis . stuff) #t))
  (guile
   (use-modules (ice-9 syncase))
   (define sc-expand identity))
@@ -206,4 +211,6 @@ exit $?
      '(a 1 2 3)
      (quote-a 1 2 3)))
 
-(result 'report)
+(result 'report (if (and guile?
+                         (equal? (effective-version) "2.0")) 1
+                         0))