Changeset 38801 in project


Ignore:
Timestamp:
07/18/20 23:18:35 (5 months ago)
Author:
Kon Lovett
Message:

use return macro (not C_return)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/apropos/trunk/symbol-table-access.scm

    r38256 r38801  
    5353(define root-symbol-table-size
    5454  (foreign-lambda* int ()
    55     "C_return( raw_symbol_table_size( use_root_symbol_table() ) );") )
     55    "return( raw_symbol_table_size( use_root_symbol_table() ) );") )
    5656
    5757(: root-symbol-table-element (fixnum -> pair))
     
    5959(define root-symbol-table-element
    6060  (foreign-lambda* scheme-object ((int i))
    61     "C_return( raw_symbol_table_chain( use_root_symbol_table(), i ) );") )
     61    "return( raw_symbol_table_chain( use_root_symbol_table(), i ) );") )
    6262
    6363(: bucket-symbol (pair -> symbol))
     
    6565(define bucket-symbol
    6666  (foreign-lambda* scheme-object ((scheme-object bucket))
    67     "C_return( raw_bucket_symbol( bucket ) );"))
     67    "return( raw_bucket_symbol( bucket ) );"))
    6868
    6969(: bucket-link (pair -> list))
     
    7171(define bucket-link
    7272  (foreign-lambda* scheme-object ((scheme-object bucket))
    73     "C_return( raw_bucket_link( bucket ) );"))
     73    "return( raw_bucket_link( bucket ) );"))
    7474
    7575(: bucket-last? (list --> boolean))
Note: See TracChangeset for help on using the changeset viewer.