Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-target/c-target.sml

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

revision 2837, Wed Nov 19 23:42:17 2014 UTC revision 2838, Tue Nov 25 03:40:24 2014 UTC
# Line 417  Line 417 
417                                  fun shape [e1]=  e1                                  fun shape [e1]=  e1
418                                  | shape ([e1,e2])=  e1*e2                                  | shape ([e1,e2])=  e1*e2
419                                  | shape (e1::e2::es)=  shape((e1*e2)::es)                                  | shape (e1::e2::es)=  shape((e1*e2)::es)
420                                  val d=shape size                                  val d=(shape size)
421    
422                                  val fmt = CL.E_Str(                                  val fmt = CL.E_Str(
423                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))                                        String.concatWith " " (List.tabulate(d, fn _ => "%f"))

Legend:
Removed from v.2837  
changed lines
  Added in v.2838

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