Changeset 33300 in project

Timestamp:

04/21/16 11:31:45 (5 years ago)

Author:

felix winkelmann

Message:

bind 1.5.3: renamed pattern to please changed matchable, reported by lemonboy

Location:

release/4/bind

Files:

• tags/1.5.3 (copied) (copied from release/4/bind/trunk)
• tags/1.5.3/bind-foreign-transformer.scm (modified) (1 diff)
• trunk/bind-foreign-transformer.scm (modified) (1 diff)

release/4/bind/tags/1.5.3/bind-foreign-transformer.scm

@@ -21 +21 @@
       (('* args ...)  (conc (intersperse (map xpr->str args) "*")))
       (('+ args ...)  (conc (intersperse (map xpr->str args) "+")))
-      (('-> struct x) (conc (xpr->str struct) "->" (xpr->str x)))
+      (('-> structname x) (conc (xpr->str structname) "->" (xpr->str x)))
       (('= var x)     (conc (xpr->str var) " = " (xpr->str x)))
       (('deref x)     (conc "*" (xpr->str x)))

release/4/bind/trunk/bind-foreign-transformer.scm

@@ -21 +21 @@
       (('* args ...)  (conc (intersperse (map xpr->str args) "*")))
       (('+ args ...)  (conc (intersperse (map xpr->str args) "+")))
-      (('-> struct x) (conc (xpr->str struct) "->" (xpr->str x)))
+      (('-> structname x) (conc (xpr->str structname) "->" (xpr->str x)))
       (('= var x)     (conc (xpr->str var) " = " (xpr->str x)))
       (('deref x)     (conc "*" (xpr->str x)))