Commit d73c6009 authored by Vincent Zweije's avatar Vincent Zweije

This commit was generated by cvs2svn to compensate for changes in r834,

which included commits to RCS files with non-trunk default branches.
parent cccf616b
......@@ -218,3 +218,6 @@ zipwith :: (.a .b->.c) ![.a] [.b] -> [.c]
// Write a list of things, each one terminated by a newline
(writeList) infixl :: !*File [a] -> .File | <<< a
// Prettyprint a list to a file with indent
printlist :: (elem->String) String [elem] *File -> .File
......@@ -323,3 +323,9 @@ zipwith f xs ys = [f x y \\ x<-xs & y<-ys]
(writeList) file [] = file
(writeList) file [x:xs]
= file <<< x <<< nl writeList xs
printlist :: (elem->String) String [elem] *File -> .File
printlist showelem indent [] file
= file
printlist showelem indent [x:xs] file
= printlist showelem indent xs (file <<< indent <<< showelem x <<< nl)
......@@ -97,9 +97,3 @@ printhistoryassociation showsym showvar indent vargraphs file
myshowrgraph showsym showvar rgraph
= hd (printgraphBy showsym showvar (rgraphgraph rgraph) [rgraphroot rgraph])
printlist :: (elem->String) String [elem] *File -> .File
printlist showelem indent [] file
= file
printlist showelem indent [x:xs] file
= printlist showelem indent xs (file <<< indent <<< showelem x <<< nl)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment