mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-12 00:15:31 +00:00
parent 9f59b2c4d0
commit b0c33ccaa6
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/system/il/macros.scm
View file

@ -80,10 +80,10 @@
(define (@inexact? x) `((@ Core::inexact?) ,x))
(define (@= x y) `(@@ ee? ,x ,y))
(define (@< x y) `(@@ lt? ,x ,y))
(define (@> x y) `(@@ gt? ,x ,y))
(define (@<= x y) `(@@ le? ,x ,y))
(define (@>= x y) `(@@ ge? ,x ,y))
;(define (@< x y) `(@@ lt? ,x ,y))
;(define (@> x y) `(@@ gt? ,x ,y))
;(define (@<= x y) `(@@ le? ,x ,y))
;(define (@>= x y) `(@@ ge? ,x ,y))
(define @+
(match-lambda*