Skip to content

Commit

Permalink
Fixing the baseline to load it during the Pharo bootstrap
Browse files Browse the repository at this point in the history
  • Loading branch information
tesonep committed Oct 30, 2024
1 parent 198e15f commit 22fef46
Showing 1 changed file with 18 additions and 5 deletions.
23 changes: 18 additions & 5 deletions src/BaselineOfMicrodown/BaselineOfMicrodown.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -171,12 +171,25 @@ BaselineOfMicrodown >> preload: loader package: packageSpec [
forget ] ]"

| packagesToUnload |
packagesToUnload := ((PackageOrganizer default packages select: [ :each | each name beginsWith: 'Microdown' ]) collect: [ :each | each name ]) reject: [ :each |
#( 'Microdown-RichTextPresenter' 'Microdown-RichTextPresenter-Tests' ) includes: each ].
"these two are not managed by the microdown repo but the documentation.
I should rename them in the future to avoid confusion"
"If it is absent it's because we are in the Pharo bootstrap"
self class environment
at: #IceRepository
ifPresent: [ :iceRepositoryClass |

packagesToUnload := ((PackageOrganizer default packages select: [
:each | each name beginsWith: 'Microdown' ])
collect: [ :each | each name ]) reject: [
:each |
#( 'Microdown-RichTextPresenter'
'Microdown-RichTextPresenter-Tests' )
includes: each ].

"these two are not managed by the microdown repo but the documentation.
I should rename them in the future to avoid confusion"

packagesToUnload do: [ :each | ((IceRepository repositoryNamed: 'Microdown') packageNamed: each) unload ]
packagesToUnload do: [ :each |
((iceRepositoryClass repositoryNamed: 'Microdown') packageNamed:
each) unload ] ]
]

{ #category : 'external projects' }
Expand Down

0 comments on commit 22fef46

Please sign in to comment.