artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Do not use quasiquote in base0.

Browse source 
* base0.scm (defined?): Rewrite without quasiquote.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-16 09:21:17 +02:00
parent dd271be218
commit 6948629c27
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
base0.mes
View file

@ -19,7 +19,7 @@
;;; along with Mes. If not, see <http://www.gnu.org/licenses/>. ;;; along with Mes. If not, see <http://www.gnu.org/licenses/>.
(define-macro (defined? x) (define-macro (defined? x)
`(assq ,x (cddr (current-module)))) (list 'assq x '(cddr (current-module))))
(define (current-input-port) 0) (define (current-input-port) 0)
(define (current-output-port) 1) (define (current-output-port) 1)