From f3f405a83a53e948ec09b6af7147c9f6473ac499 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Sat, 22 Aug 2020 20:24:47 +0200 Subject: [PATCH] ARM: as: Guile compile fix. * module/mescc/armv4/as.scm (optimize-immediate): Do not unquote compare functions (and numbers). --- module/mescc/armv4/as.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/module/mescc/armv4/as.scm b/module/mescc/armv4/as.scm index 138ff201..9ca3f091 100644 --- a/module/mescc/armv4/as.scm +++ b/module/mescc/armv4/as.scm @@ -1,5 +1,5 @@ ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2016,2017,2018,2020 Jan (janneke) Nieuwenhuizen ;;; Copyright © 2019 Danny Milosavljevic ;;; ;;; 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))))