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

ARM: as: Guile compile fix.

Browse source 
* module/mescc/armv4/as.scm (optimize-immediate): Do not unquote compare
functions (and numbers).
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-08-22 20:24:47 +02:00 committed by Danny Milosavljevic
parent e3aba5d464
commit f3f405a83a
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
module/mescc/armv4/as.scm
View file

@ -1,5 +1,5 @@
;;; GNU Mes --- Maxwell Equations of Software ;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016,2017,2018,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
;;; ;;;
;;; This file is part of GNU Mes. ;;; This file is part of GNU Mes.
@ -36,11 +36,11 @@
(define-macro (optimize-immediate exp positive-body negative-body (define-macro (optimize-immediate exp positive-body negative-body
general-body) general-body)
`(let ((exp ,exp)) `(let ((exp ,exp))
(if (,>= exp ,0) (if (>= exp 0)
(if (,< exp ,#x100) (if (< exp #x100)
,positive-body ,positive-body
,general-body) ,general-body)
(if (,> exp ,#x-100) (if (> exp #x-100)
,negative-body ,negative-body
,general-body)))) ,general-body))))