diff --git a/geesh/built-ins/break.scm b/geesh/built-ins/break.scm index 1ff8426..ca45dc9 100644 --- a/geesh/built-ins/break.scm +++ b/geesh/built-ins/break.scm @@ -33,4 +33,4 @@ (begin ;; Since we do not return, we have to set the status here. (set-status! 0) - (break (1- n)))))) + (sh:break (1- n)))))) diff --git a/geesh/built-ins/continue.scm b/geesh/built-ins/continue.scm index e221453..d52a76a 100644 --- a/geesh/built-ins/continue.scm +++ b/geesh/built-ins/continue.scm @@ -33,4 +33,4 @@ (begin ;; Since we do not return, we have to set the status here. (set-status! 0) - (continue (1- n)))))) + (sh:continue (1- n)))))) diff --git a/geesh/environment.scm b/geesh/environment.scm index 2136878..f1caf58 100644 --- a/geesh/environment.scm +++ b/geesh/environment.scm @@ -42,9 +42,9 @@ *option-names* *option-letters* call-with-continue - continue + sh:continue call-with-break - break + sh:break *fd-count* fd->current-port)) @@ -297,7 +297,7 @@ exit the dynamic extent of @var{thunk}." (false-if-exception (abort-to-prompt *continue-tag* (1- n))))))) -(define* (continue #:optional (n 0)) +(define* (sh:continue #:optional (n 0)) "Exit to the closest invocation of @code{call-with-continue}. If @var{n} is set, exit to the @math{n + 1}th closest invocation." (abort-to-prompt *continue-tag* n)) @@ -314,7 +314,7 @@ exit the dynamic extent of @var{thunk}." (false-if-exception (abort-to-prompt *break-tag* (1- n))))))) -(define* (break #:optional (n 0)) +(define* (sh:break #:optional (n 0)) "Exit to the closest invocation of @code{call-with-break}. If @var{n} is set, exit to the @math{n + 1}th closest invocation." (abort-to-prompt *break-tag* n))