,break-at-source ?

,break-at-source ?

[Jan Nieuwenhuizen]

[-- Attachment #1: Type: text/plain, Size: 944 bytes --]

Hi,

I cannot get ,break-at-source to work.  Is this a bug?

    $ guile
    GNU Guile 2.1.0.1098-5ded
    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)> ,m (break)
    scheme@(break)> ,break-at-source ./break.scm 15
    While executing meta-command:
    ERROR: No procedures found at ~a:~a. "./break.scm" 15
    scheme@(break)> ,break-at-source ./break.scm 14
    While executing meta-command:
    ERROR: No procedures found at ~a:~a. "./break.scm" 14
    scheme@(break)> ,break main
    Trap 2: Breakpoint at #<procedure main args>.
    scheme@(break)> 

break-at-source is very handy, possible even required, for integration
into IDEs like GUD or Eclipse.

Greetings,
Jan


[-- Attachment #2: break.scm --]
[-- Type: application/octet-stream, Size: 368 bytes --]

#! /bin/sh
# -*- scheme -*-
exec guile -L $(dirname $0)/../.. -L $(dirname $0) -e main -s $0 "$@"
!#

(read-set! keywords 'prefix)

(define (main . args)
  (eval '(main (command-line)) (resolve-module '(break))))

(define-module (break)
  :use-module (srfi srfi-10)
  :export (main))

(define (main . args) 
  (format #t "~a:hello world\n" (current-source-location)))

[-- Attachment #3: Type: text/plain, Size: 154 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl