home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / changes.st < prev    next >
Text File  |  1992-02-16  |  2KB  |  49 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  4. | Written by David Duke.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23. "
  24. |     Change Log
  25. | ============================================================================
  26. | Author       Date       Change 
  27. | sbb         16 Feb 92      Created by David Duke.
  28. |
  29. "
  30.  
  31. "This is loaded later, after the Fraction Class has been created.  Logically
  32.  it belongs in builtins."
  33.  
  34. !Integer methodsFor: 'built ins'!
  35.  
  36. / arg
  37.     <primitive: 10>
  38.     (arg isMemberOf: Integer) & (self isMemberOf: Integer) 
  39.     ifTrue: [ ^(Fraction numerator: self denominator: arg)]. 
  40.     ^self retry: #/ coercing: arg
  41. !!
  42.  
  43. !Integer methodsFor: 'converting'!
  44.  
  45. asFraction
  46.     ^Fraction numerator: self denominator: 1
  47. !!
  48.  
  49.