Changeset 15636 in project


Ignore:
Timestamp:
08/29/09 15:38:41 (10 years ago)
Author:
felix
Message:

added print method

Location:
release/4/protobj
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/protobj/protobj.meta

    r12591 r15636  
    1 ;;; protobj.meta -*- Hen -*-
     1;;; protobj.meta -*- Scheme -*-
    22
    3 ((egg "protobj.egg")
    4  (synopsis "A prototype-delegation object model")
     3((synopsis "A prototype-delegation object model")
    54 (license "LGPL-2.1")
    65 (author "Neil van Dyke")
  • release/4/protobj/protobj.scm

    r12591 r15636  
    2929                         object-raw-clone/copy-all-slots
    3030                         current-root-object
    31                          ^ ! ? % 
     31                         ^ ! ? %
    3232                         (@ protobj-internal:apply*) )
    3333
     
    404404                                      (! o ?s1 ?v1) ...
    405405                                      o))))
     406
     407
     408;;; Extensions (by felix)
     409
     410(define-record-printer (object x port)
     411  (@ x print port) )
     412
     413(! (current-root-object) print
     414   (lambda (self #!optional (port (current-output-port)))
     415     (display "#<object>" port)))
     416
    406417)
    407418
  • release/4/protobj/protobj.setup

    r12591 r15636  
    22(compile -s -O2 -d0 protobj.import.scm)
    33
    4 (install-extension 'protobj '("protobj.so" "protobj.import.so"))
     4(install-extension
     5 'protobj
     6 '("protobj.so" "protobj.import.so")
     7 '((version 0.3)))
Note: See TracChangeset for help on using the changeset viewer.