andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ARM: as: Guile compile fix. 

* 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
;;; 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>
;;;
;;; This file is part of GNU Mes.
@ -36,11 +36,11 @@
(define-macro (optimize-immediate exp positive-body negative-body
general-body)
`(let ((exp ,exp))
(if (,>= exp ,0)
(if (,< exp ,#x100)
(if (>= exp 0)
(if (< exp #x100)
,positive-body
,general-body)
(if (,> exp ,#x-100)
(if (> exp #x-100)
,negative-body
,general-body))))