Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added fx*

  • Loading branch information...
commit 3dc0143524ead9669cdde0bb27f2e6d3ffb19bd1 1 parent 44669a3
@Gabriano Gabriano authored
Showing with 1,459 additions and 1,366 deletions.
  1. +1,450 −1,366 gsc/_t-univ.c
  2. +9 −0 gsc/_t-univ.scm
View
2,816 gsc/_t-univ.c
1,450 additions, 1,366 deletions not shown
View
9 gsc/_t-univ.scm
@@ -1064,6 +1064,15 @@ EOF
#f)
+(univ-define-prim "fx*" #f #f
+
+ (lambda (ctx opnds)
+ (gen (translate-gvm-opnd ctx (list-ref opnds 0))
+ " * "
+ (translate-gvm-opnd ctx (list-ref opnds 1))))
+
+ #f)
+
(univ-define-prim "fx<" #f #f
#f
Please sign in to comment.
Something went wrong with that request. Please try again.