Loading

Paste #pv72h7vbt

  1. scheme@(guile-user)> (define-record-type <foo> (make-foo bar) foo? (bar foo-bar))
  2. scheme@(guile-user)> (record-accessor <foo> 0)
  3. ice-9/boot-9.scm:1650:16: In procedure raise-exception:
  4. Error while printing exception.
  5.  
  6. Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
  7. scheme@(guile-user) [1]>
  8. scheme@(guile-user)> (record-accessor <foo> 'bar)
  9. $1 = #<procedure 7ff28d4cfbd0 at ice-9/boot-9.scm:1204:4 (obj)>
  10. scheme@(guile-user)>