On Tue, 2013-05-21 at 20:57 +0200, Andreas Schneider wrote:
> Hi,
>
> is there an easy way to debug a scheme script? I suppose the scheme
> script editor has no built-in debugger? (Hey, one can dream ...) I have
> written a script that does not work, and I don't understand why.
No, you are seeing the scheme error messages in the console? They are a
little difficult to decipher, and you can't tell which line the error
comes on always. You can put in printing calls like this
(disp "The tag is " tag " ok???")
which tells you how you are doing.
In this case you have the wrong name for the directive: "movement" is
movementcontrol. (These names are very primitive in origin, what would
be nice is to wrap them all up in nice regular, understandable
names...).
More below ...
>
> ;;;MarkupAtEnd
> (let ((tag "MarkupAtEnd"))
> (d-DirectivePut-movement-override tag DENEMO_OVERRIDE_GRAPHIC)
d-DirectivePut-movementcontrol-override is what you meant.
> (d-DirectivePut-movement-display tag "MarkupAtEnd")
> (if (d-Directive-movement? tag)
> (let themarkup (d-DirectiveGet-movement-postfix tag))
> (let themarkup (""))
I don't think these (let themarkup ....
are right (well perhaps...) I think you may get a new local variable
each time, lasting only to the end of the (let....)
I would start
(let ((tag "MarkupAtEnd")(themarkup #f)) ...
and then (set! themarkup ....
in the body.
HTH
Richard
> )
> (set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit markup:")
> themarkup))
> (d-DirectivePut-movement-postfix tag themarkup)
> (d-DirectivePut-movement-override tag DENEMO_OVERRIDE_AFFIX)
> (d-SetSaved #f)
> )
>
> Thanks
>
> Andreas
>
> _______________________________________________
> Denemo-devel mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/denemo-devel
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
