From 9e721fbf342ad800195314796ff236ebe1b061f2 Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Sun, 13 Oct 2019 14:22:12 -0300 Subject: [PATCH] Fix for self-bootstrapping --- .travis.yml | 2 +- src/compiler.shen | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/.travis.yml b/.travis.yml index 9854902..19d597e 100644 --- a/.travis.yml +++ b/.travis.yml @@ -4,7 +4,7 @@ language: generic sudo: required env: global: - - PREBUILT_SHEN_VERSION=3.0.2 + - PREBUILT_SHEN_VERSION=3.0.1 matrix: include: - os: linux diff --git a/src/compiler.shen b/src/compiler.shen index 95610fb..d683a2f 100644 --- a/src/compiler.shen +++ b/src/compiler.shen @@ -4,7 +4,7 @@ (package shen-cl [progn quote null car cdr t nil numberp stringp consp funcall list eq eql equal let* - lisp.defun lisp.lambda lisp. + lisp.defun lisp.lambda lisp.block lisp. %%return return %%goto-label go %%let-label block tagbody] @@ -62,6 +62,8 @@ [lisp.lambda Vars Body] Scope -> [(cl lambda) Vars (compile-expression Body (append Vars Scope))] [lisp.defun Name Vars Body] _ -> [(cl defun) Name Vars (compile-expression Body Vars)] [lisp.block Name Body] Scope -> [(cl block) Name (compile-expression Body Scope)] + \\ NOTE: temporary fix for self-bootstrapping + [shen-cl.lisp.block Name Body] Scope -> [(cl block) Name (compile-expression Body Scope)] [lisp. Code] _ -> (if (string? Code) ((protect READ-FROM-STRING) Code) (error "lisp. excepts a string, not ~A" Code))