Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /MLRISC/trunk/vararg-ccall/varargs.sml
ViewVC logotype

Diff of /MLRISC/trunk/vararg-ccall/varargs.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3077, Tue Jun 10 21:15:52 2008 UTC revision 3078, Wed Jun 11 00:11:16 2008 UTC
# Line 54  Line 54 
54      type ('a, 'b) vararg = 'a valist -> ('b -> 'a) valist      type ('a, 'b) vararg = 'a valist -> ('b -> 'a) valist
55    
56    (* combinators *)    (* combinators *)
   
57      fun int k k' i = k(fn () => (push(I i); k'()))      fun int k k' i = k(fn () => (push(I i); k'()))
58      fun real k k' r = k(fn () => (push(R r); k'()))      fun real k k' r = k(fn () => (push(R r); k'()))
59      fun bool k k' b = k(fn () => (push(B b); k'()))      fun bool k k' b = k(fn () => (push(B b); k'()))

Legend:
Removed from v.3077  
changed lines
  Added in v.3078

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0