looping through re-seach-forward gives error

looping through re-seach-forward gives error

[jenia.ivlev]

This program aims to restore the guile REPL session dump (see input file).

When I added the while loop, ELISP stated giving me this error when the
end of the file is reacher:

`Scan error: "Containg expression end prematurely", 715, 716`

Can someone please tell me what the problem is?

This is the program:

PROGRAM
=======
    (defun retore-guile-session()
      (interactive)
      (save-excursion 
      (while (progn (re-search-forward "scheme@(guile-user)" (point-max) t))
         (append-to-buffer "scratch" (find-start-of-sexp)
                                     (find-end-of-sexp)))))
    
    
    
    (defun find-start-of-sexp ()
    
       (re-search-forward "(" (point-max) t)
       (backward-char) 
       (point-marker))
    
    
    (defun find-end-of-sexp ()
      (forward-sexp)
      (point-marker))

And this is the input file?

INPUT FILE (to use it just visit it and run the program)
==========

    GNU Guile 2.0.11
    Copyright (C) 1995-2014 Free Software Foundation, Inc.
    
    Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
    This program is free software, and you are welcome to redistribute it
    under certain conditions; type `,show c' for details.
    
    Enter `,help' for help.
    scheme@(guile-user)> 
    scheme@(guile-user)> 
    scheme@(guile-user)> 
    scheme@(guile-user)> (+ 1 2)
    $2 = 3
    scheme@(guile-user)> 
    scheme@(guile-user)> 
    scheme@(guile-user)> (+1 2)
    ERROR: In procedure 1:
    ERROR: Wrong type to apply: 1
    
    Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
    scheme@(guile-user) [1]> 
    scheme@(guile-user) [1]> 
    scheme@(guile-user) [1]> (+ 1 2 (*
    				 2 3))
    $3 = 9
    scheme@(guile-user) [1]> 


Can someone please tell me, why is ELSIP giving me error `Scan error:
"Containg expression end prematurely", 715, 716` when the while loop
reaches the end of the file?

Thanks in advance

RE: looping through re-seach-forward gives error

[Drew Adams]

>     (defun find-start-of-sexp ()
>        (re-search-forward "(" (point-max) t)
>        (backward-char)
>        (point-marker))

What happens if (re-search-forward "(" (point-max) t) returns nil?

>     (defun find-end-of-sexp ()
>       (forward-sexp)
>       (point-marker))

What happens if (forward-sexp) has a problem?

Re: looping through re-seach-forward gives error

[Michael Heerdegen]

Drew Adams <drew.adams@oracle.com> writes:

> >     (defun find-start-of-sexp ()
> >        (re-search-forward "(" (point-max) t)
> >        (backward-char)
> >        (point-marker))
>
> What happens if (re-search-forward "(" (point-max) t) returns nil?
>
> >     (defun find-end-of-sexp ()
> >       (forward-sexp)
> >       (point-marker))
>
> What happens if (forward-sexp) has a problem?

Also: what happens when there are prompts which are directly followed by
another prompt?

I suggest to use Edebug to see what's going on.  Just instrument your
stuff (C-u C-M-x), start your program, and hit SPC, SPC, ... to see
what's going on.


Michael.