Changeset 20565 for lang/gauche

Show
Ignore:
Timestamp:
10/03/08 12:09:44 (5 years ago)
Author:
drry
Message:
  • fixed typos.
Location:
lang/gauche/oldtype
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/branches/stable/Kahua/oldtype/oldtype/page.scm

    r15941 r20565  
    11;;; 
    2 ;;; oldtype/page - wiki page infomation 
     2;;; oldtype/page - wiki page information 
    33;;; 
    44;;;  Copyright (c) 2008 Kiyoka Nishiyama, All rights reserved. 
    … …  
    2626;;;  $Id: $ 
    2727;;; 
    28 ;;;  
     28;;; 
    2929 
    3030;; 
    3131;; page information of single wiki page of OldType. 
    32 ;; it contains multi <oldtype-line> infomation 
     32;; it contains multi <oldtype-line> information 
    3333;; 
    3434 
    … …  
    6666(define-class <oldtype-page> () 
    6767  (;; Customization parameters ----------------------- 
    68     
     68 
    6969   ;; page name (utf-8) 
    7070   (name        :accessor name-of        :init-keyword :name 
    7171                :init-value "none") 
    72    ;; sxml data in page  
     72   ;; sxml data in page 
    7373   (sxml        :accessor sxml-of        :init-keyword :sxml 
    7474                :init-value '()) 
    75    ;; <oldtype-timeline> in page  
     75   ;; <oldtype-timeline> in page 
    7676   (timeline    :accessor timeline-of    :init-keyword :timeline 
    7777                :init-value '()) 
    … …  
    9797  (set! (plain-of self) 
    9898        (list->vector 
    99          (string-split  
     99         (string-split 
    100100          (oldtype:sxml->plain-text (sxml-of self)) 
    101101          #\newline))) 
    … …  
    109109    (timeline . ,(serialize (timeline-of self))) 
    110110    (plain    . ,(vector->list (plain-of self))))) 
    111                    
     111 
    112112 
    113113(define-method deserialize ((dummy <oldtype-page>) internal-data) 

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/page.scm

    r15746 r20565  
    11;;; 
    2 ;;; oldtype/page - wiki page infomation 
     2;;; oldtype/page - wiki page information 
    33;;; 
    44;;;  Copyright (c) 2008 Kiyoka Nishiyama, All rights reserved. 
    … …  
    2626;;;  $Id: $ 
    2727;;; 
    28 ;;;  
     28;;; 
    2929 
    3030;; 
    3131;; page information of single wiki page of OldType. 
    32 ;; it contains multi <oldtype-line> infomation 
     32;; it contains multi <oldtype-line> information 
    3333;; 
    3434 
    … …  
    6666(define-class <oldtype-page> () 
    6767  (;; Customization parameters ----------------------- 
    68     
     68 
    6969   ;; page name (utf-8) 
    7070   (name        :accessor name-of        :init-keyword :name 
    7171                :init-value "none") 
    72    ;; sxml data in page  
     72   ;; sxml data in page 
    7373   (sxml        :accessor sxml-of        :init-keyword :sxml 
    7474                :init-value '()) 
    75    ;; <oldtype-timeline> in page  
     75   ;; <oldtype-timeline> in page 
    7676   (timeline    :accessor timeline-of    :init-keyword :timeline 
    7777                :init-value '()) 
    … …  
    9797  (set! (plain-of self) 
    9898        (list->vector 
    99          (string-split  
     99         (string-split 
    100100          (oldtype:sxml->plain-text (sxml-of self)) 
    101101          #\newline))) 
    … …  
    109109    (timeline . ,(serialize (timeline-of self))) 
    110110    (plain    . ,(vector->list (plain-of self))))) 
    111                    
     111 
    112112 
    113113(define-method deserialize ((dummy <oldtype-page>) internal-data)