<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="GiovanniITCTT">I had a function which expected 2 arguments
receive 3 arguments. mzscheme listed the arguments that the function
got, but <br>
<br>
a/ it did not list each argument in its entirety<br>
b/ I cannot tell where 1 argument ends and the next begin (see sample
output)<br>
<br>
</font><tt>Welcome to MzScheme version 207, Copyright (c) 2004 PLT
Scheme, Inc.<br>
Identifiers and symbols are initially case-sensitive.<br>
> (require "html-seamstress.scm")<br>
Welcome to LAML Version 23.00 (December 12, 2003, full).<br>
(C) Kurt Normark, Aalborg University, Denmark.<br>
Using LAML in directory: c:/Programs/laml/<br>
> (point-mute-demo)<br>
procedure ...l-seamstress.scm:75:30: expects 2 arguments, given 3:
*TOP* (#\newline #\< html #\> (("\n" " " (#\newline #\< head
#\> (("\n" " " (#\newline #\< title #\> (("Point Mutation")
"</" title #\>)) "\n" " ") "</" head #\>)) "\n" "\n" " "
(#\newline #\< body #\> (("\n" " " (#\newline #\< h1 #\>
(("Point Mutation") "</" h1 #\>)) "\n" "\n" "\n" " Hello
there,\n" " " (#\newline #\< ... "\n"<br>
> ruleset<br>
((*TOP* . #<procedure:...l-seamstress.scm:75:30>) (span
*preorder* . #<procedure:...l-seamstress.scm:90:9>) (@
((*default* . #<procedure:...l-seamstress.scm:61:12>)) .
#<procedure:...l-seamstress.scm:62:10>) (*default* .
#<procedure:...l-seamstress.scm:64:20>) (*text* .
#<procedure:...l-seamstress.scm:66:17>) (n_ .
#<procedure:...l-seamstress.scm:70:10>))<br>
> <br>
<br>
To summarize:<br>
a/ it would be nice to be able to say how much of each argument should
be listed to avoid my truncation problem<br>
b/ it would be nice if each argument were on a separated line, such as:<br>
[arg 1]: adsfasdf<br>
[arg 2]: asd fasdf <br>
aa dsfaf <br>
a da<br>
sdf adsf<br>
asdf ad<br>
[arg 3]: asdfafsd adfa afda df<br>
<br>
</tt><font face="GiovanniITCTT"></font>
<pre class="moz-signature" cols="80">--
(let recur ((lis x) (k k))
(if (zero? k) (values '() lis)
(receive (prefix suffix) (recur (cdr lis) (- k 1))
(values (cons (car lis) prefix) suffix))))) </pre>
</body>
</html>