← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libctl/vivid

« back to all changes in this revision

Viewing changes to base/interaction.scm

  • Committer: Package Import Robot
  • Author(s): Thorsten Alteholz
  • Date: 2012-07-24 18:00:26 UTC
  • mto: (11.1.1 experimental) (1.3.1)
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: package-import@ubuntu.com-20120724180026-d5yjvlshxjrvu1kk
Tags: upstream-3.2
Import upstream version 3.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
base/interaction.scm
1
1
; libctl: flexible Guile-based control files for scientific software 
2
 
; Copyright (C) 1998-2009, Steven G. Johnson
 
2
; Copyright (C) 1998-2012 Massachusetts Institute of Technology and Steven G. Johnson
3
3
;
4
4
; This library is free software; you can redistribute it and/or
5
5
; modify it under the terms of the GNU Lesser General Public
56
56
        (- (get-choice (length items)) 1))))
57
57
 
58
58
; ****************************************************************
 
59
; utility to set the Scheme prompt, since they changed the interface in guile 2
 
60
 
 
61
(define (ctl-set-prompt! p)
 
62
  (if (defined? 'scm-repl-prompt)
 
63
      (set! scm-repl-prompt p)
 
64
      ((module-ref (resolve-interface '(system repl common))
 
65
                   'repl-default-prompt-set!)
 
66
       p)))
 
67
 
 
68
; ****************************************************************